home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / C / GBDK / examples / sound.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-05-08  |  22.6 KB  |  873 lines
  1. #include <stdlib.h>
  2. #include <stdio.h>
  3.  
  4. #define ARROW_CHAR 3
  5. #define SPACE_CHAR ' '
  6.  
  7. #define ARROW_X    0
  8. #define VAL_X      15
  9. #define TITLE_Y    0
  10. #define FIRST_X    (ARROW_X+1)
  11. #define FIRST_Y    (TITLE_Y+2)
  12.  
  13. #define PLAY       0x20
  14. #define FREQUENCY  0x21
  15.  
  16. #define MIN(x,y) ((x) > (y) ? (y) : (x))
  17. #define MAX(x,y) ((x) < (y) ? (y) : (x))
  18.  
  19. #define NB_MODES   5
  20.  
  21. extern unsigned char _reg_0x10;
  22. extern unsigned char _reg_0x11;
  23. extern unsigned char _reg_0x12;
  24. extern unsigned char _reg_0x13;
  25. extern unsigned char _reg_0x14;
  26. extern unsigned char _reg_0x15;
  27. extern unsigned char _reg_0x16;
  28. extern unsigned char _reg_0x17;
  29. extern unsigned char _reg_0x18;
  30. extern unsigned char _reg_0x19;
  31. extern unsigned char _reg_0x1A;
  32. extern unsigned char _reg_0x1B;
  33. extern unsigned char _reg_0x1C;
  34. extern unsigned char _reg_0x1D;
  35. extern unsigned char _reg_0x1E;
  36. extern unsigned char _reg_0x1F;
  37. extern unsigned char _reg_0x20;
  38. extern unsigned char _reg_0x21;
  39. extern unsigned char _reg_0x22;
  40. extern unsigned char _reg_0x23;
  41. extern unsigned char _reg_0x24;
  42. extern unsigned char _reg_0x25;
  43. extern unsigned char _reg_0x26;
  44.  
  45. enum notes {
  46.   C0, Cd0, D0, Dd0, E0, F0, Fd0, G0, Gd0, A0, Ad0, B0,
  47.   C1, Cd1, D1, Dd1, E1, F1, Fd1, G1, Gd1, A1, Ad1, B1,
  48.   C2, Cd2, D2, Dd2, E2, F2, Fd2, G2, Gd2, A2, Ad2, B2,
  49.   C3, Cd3, D3, Dd3, E3, F3, Fd3, G3, Gd3, A3, Ad3, B3,
  50.   C4, Cd4, D4, Dd4, E4, F4, Fd4, G4, Gd4, A4, Ad4, B4,
  51.   C5, Cd5, D5, Dd5, E5, F5, Fd5, G5, Gd5, A5, Ad5, B5,
  52.   SILENCE, END
  53. };
  54.  
  55. unsigned int frequencies[] = {
  56.   44, 156, 262, 363, 457, 547, 631, 710, 786, 854, 923, 986,
  57.   1046, 1102, 1155, 1205, 1253, 1297, 1339, 1379, 1417, 1452, 1486, 1517,
  58.   1546, 1575, 1602, 1627, 1650, 1673, 1694, 1714, 1732, 1750, 1767, 1783,
  59.   1798, 1812, 1825, 1837, 1849, 1860, 1871, 1881, 1890, 1899, 1907, 1915,
  60.   1923, 1930, 1936, 1943, 1949, 1954, 1959, 1964, 1969, 1974, 1978, 1982,
  61.   1985, 1988, 1992, 1995, 1998, 2001, 2004, 2006, 2009, 2011, 2013, 2015
  62. };
  63.  
  64. unsigned char music[] = {
  65.   C3, C3, G3, G3, A3, A3, G3, SILENCE,
  66.   F3, F3, E3, E3, D3, D3, C3, SILENCE,
  67.   G3, G3, F3, F3, E3, E3, D3, D3,
  68.   G3, G3, F3, F3, E3, E3, D3, D3,
  69.   C3, C3, G3, G3, A3, A3, G3, SILENCE,
  70.   F3, F3, E3, E3, D3, D3, C3, SILENCE,
  71.   END
  72. };
  73.  
  74. struct Params {
  75.   char *name;
  76.   unsigned int max;
  77. };
  78.  
  79. struct Params params_0[] = {
  80.   { "Main Controls" , 0    },
  81.   { "All On/Off"    , 1    },
  82.   { "Vin->SO1"      , 1    },
  83.   { "Vin->SO2"      , 1    },
  84.   { "SO1 Volume"    , 7    },
  85.   { "SO2 Volume"    , 7    },
  86.   { NULL            , 0    }
  87. };
  88.  
  89. struct Params params_1[] = {
  90.   { "Sound Mode #1" , 0    },
  91.   { "Swp Time"      , 7    },
  92.   { "Swp Mode"      , 1    },
  93.   { "Swp Shifts"    , 7    },
  94.   { "Pat Duty"      , 3    },
  95.   { "Sound Len"     , 63   },
  96.   { "Env Init"      , 15   },
  97.   { "Env Mode"      , 1    },
  98.   { "Env Nb Swp"    , 7    },
  99.   { "Frequency"     , 2047 },
  100.   { "Cons Sel"      , 1    },
  101.   { "Out to SO1"    , 1    },
  102.   { "Out to SO2"    , 1    },
  103.   { "On/Off"        , 1    },
  104.   { NULL            , 0    }
  105. };
  106.  
  107. struct Params params_2[] = {
  108.   { "Sound Mode #2" , 0    },
  109.   { "Pat Duty"      , 3    },
  110.   { "Sound Len"     , 63   },
  111.   { "Env Init"      , 15   },
  112.   { "Env Mode"      , 1    },
  113.   { "Env Nb Step"   , 7    },
  114.   { "Frequency"     , 2047 },
  115.   { "Cons Sel"      , 1    },
  116.   { "Out to SO1"    , 1    },
  117.   { "Out to SO2"    , 1    },
  118.   { "On/Off"        , 1    },
  119.   { NULL            , 0    }
  120. };
  121.  
  122. struct Params params_3[] = {
  123.   { "Sound Mode #3" , 0    },
  124.   { "Sound On/Off"  , 1    },
  125.   { "Sound Len"     , 255  },
  126.   { "Sel Out Level" , 3    },
  127.   { "Frequency"     , 2047 },
  128.   { "Cons Sel"      , 1    },
  129.   { "Out to SO1"    , 1    },
  130.   { "Out to SO2"    , 1    },
  131.   { "On/Off"        , 1    },
  132.   { NULL            , 0    }
  133. };
  134.  
  135. struct Params params_4[] = {
  136.   { "Sound Mode #4" , 0    },
  137.   { "Sound Len"     , 63   },
  138.   { "Env Init"      , 15   },
  139.   { "Env Mode"      , 1    },
  140.   { "Env Nb Step"   , 7    },
  141.   { "Poly Cnt Freq" , 15   },
  142.   { "Poly Cnt Step" , 1    },
  143.   { "Poly Cnt Div"  , 7    },
  144.   { "Cons Sel"      , 1    },
  145.   { "Out to SO1"    , 1    },
  146.   { "Out to SO2"    , 1    },
  147.   { "On/Off"        , 1    },
  148.   { NULL            , 0    }
  149. };
  150.  
  151. struct Params *params_array[] = {
  152.   params_0,
  153.   params_1,
  154.   params_2,
  155.   params_3,
  156.   params_4,
  157. };
  158.  
  159. struct Params *params;
  160.  
  161. struct SoundReg {
  162.   struct {
  163.     /* 0xFF10 */
  164.     unsigned int sweepShifts     : 3;
  165.     unsigned int sweepMode       : 1;
  166.     unsigned int sweepTime       : 3;
  167.     unsigned int unused_1        : 1;
  168.  
  169.     /* 0xFF11 */
  170.     unsigned int soundLength     : 6;
  171.     unsigned int patternDuty     : 2;
  172.  
  173.     /* 0xFF12 */
  174.     unsigned int envNbSweep      : 3;
  175.     unsigned int envMode         : 1;
  176.     unsigned int envInitialValue : 4;
  177.  
  178.     /* 0xFF13 */
  179.     unsigned int frequencyLow    : 8;
  180.  
  181.     /* 0xFF14 */
  182.     unsigned int frequencyHigh   : 3;
  183.     unsigned int unused_2        : 3;
  184.     unsigned int counter_ConsSel : 1;
  185.     unsigned int restart         : 1;
  186.   } mode1;
  187.   struct {
  188.     /* 0xFF15 */
  189.     unsigned int unused_1        : 8;
  190.  
  191.     /* 0xFF16 */
  192.     unsigned int soundLength     : 6;
  193.     unsigned int patternDuty     : 2;
  194.  
  195.     /* 0xFF17 */
  196.     unsigned int envNbStep       : 3;
  197.     unsigned int envMode         : 1;
  198.     unsigned int envInitialValue : 4;
  199.  
  200.     /* 0xFF18 */
  201.     unsigned int frequencyLow    : 8;
  202.  
  203.     /* 0xFF19 */
  204.     unsigned int frequencyHigh   : 3;
  205.     unsigned int unused_2        : 3;
  206.     unsigned int counter_ConsSel : 1;
  207.     unsigned int restart         : 1;
  208.   } mode2;
  209.   struct {
  210.     /* 0xFF1A */
  211.     unsigned int unused_1        : 7;
  212.     unsigned int on_Off          : 1;
  213.  
  214.     /* 0xFF1B */
  215.     unsigned int soundLength     : 8;
  216.  
  217.     /* 0xFF1C */
  218.     unsigned int unused_2        : 5;
  219.     unsigned int selOutputLevel  : 2;
  220.     unsigned int unused_3        : 1;
  221.  
  222.     /* 0xFF1D */
  223.     unsigned int frequencyLow    : 8;
  224.  
  225.     /* 0xFF1E */
  226.     unsigned int frequencyHigh   : 3;
  227.     unsigned int unused_4        : 3;
  228.     unsigned int counter_ConsSel : 1;
  229.     unsigned int restart         : 1;
  230.   } mode3;
  231.   struct {
  232.     /* 0xFF1F */
  233.     unsigned int unused_1        : 8;
  234.  
  235.     /* 0xFF20 */
  236.     unsigned int soundLength     : 6;
  237.     unsigned int unused_2        : 2;
  238.  
  239.     /* 0xFF21 */
  240.     unsigned int envNbStep       : 3;
  241.     unsigned int envMode         : 1;
  242.     unsigned int envInitialValue : 4;
  243.  
  244.     /* 0xFF22 */
  245.     unsigned int polyCounterDiv   : 3;
  246.     unsigned int polyCounterStep  : 1;
  247.     unsigned int polyCounterFreq  : 4;
  248.  
  249.     /* 0xFF23 */
  250.     unsigned int unused_3        : 6;
  251.     unsigned int counter_ConsSel : 1;
  252.     unsigned int restart         : 1;
  253.   } mode4;
  254.   struct {
  255.     /* 0xFF24 */
  256.     unsigned int SO1_OutputLevel : 3;
  257.     unsigned int Vin_SO1         : 1;
  258.     unsigned int SO2_OutputLevel : 3;
  259.     unsigned int Vin_SO2         : 1;
  260.  
  261.     /* 0xFF25 */
  262.     unsigned int Sound1_To_SO1   : 1;
  263.     unsigned int Sound2_To_SO1   : 1;
  264.     unsigned int Sound3_To_SO1   : 1;
  265.     unsigned int Sound4_To_SO1   : 1;
  266.     unsigned int Sound1_To_SO2   : 1;
  267.     unsigned int Sound2_To_SO2   : 1;
  268.     unsigned int Sound3_To_SO2   : 1;
  269.     unsigned int Sound4_To_SO2   : 1;
  270.  
  271.     /* 0xFF26 */
  272.     unsigned int Sound1_On_Off   : 1;
  273.     unsigned int Sound2_On_Off   : 1;
  274.     unsigned int Sound3_On_Off   : 1;
  275.     unsigned int Sound4_On_Off   : 1;
  276.     unsigned int unused_1        : 3;
  277.     unsigned int global_On_Off   : 1;
  278.   } control;
  279. };
  280.  
  281. struct SoundReg *soundReg;
  282.  
  283. int current_value(int mode, int line)
  284. {
  285.   if(mode == 0) {
  286.     switch(line)
  287.       {
  288.       case 0: /* global_On_Off */
  289.     return soundReg->control.global_On_Off;
  290.       case 1: /* Vin_SO1 */
  291.     return soundReg->control.Vin_SO1;
  292.       case 2: /* Vin_SO2 */
  293.     return soundReg->control.Vin_SO2;
  294.       case 3: /* SO1_OutputLevel */
  295.     return soundReg->control.SO1_OutputLevel;
  296.       case 4: /* SO2_OutputLevel */
  297.     return soundReg->control.SO2_OutputLevel;
  298.       }
  299.   } else if(mode == 1) {
  300.     switch(line)
  301.       {
  302.       case 0: /* sweepTime */
  303.     return soundReg->mode1.sweepTime;
  304.       case 1: /* sweepMode */
  305.     return soundReg->mode1.sweepMode;
  306.       case 2: /* sweepShifts */
  307.     return soundReg->mode1.sweepShifts;
  308.       case 3: /* patternDuty */
  309.     return soundReg->mode1.patternDuty;
  310.       case 4: /* soundLength */
  311.     return soundReg->mode1.soundLength;
  312.       case 5: /* envInitialValue */
  313.     return soundReg->mode1.envInitialValue;
  314.       case 6: /* envMode */
  315.     return soundReg->mode1.envMode;
  316.       case 7: /* envNbSweep */
  317.     return soundReg->mode1.envNbSweep;
  318.       case 8: /* frequency */
  319.       case FREQUENCY:
  320.     return (soundReg->mode1.frequencyHigh << 8) + soundReg->mode1.frequencyLow;
  321.       case 9: /* counter_ConsSel */
  322.     return soundReg->mode1.counter_ConsSel;
  323.       case 10: /* Sound1_To_SO1 */
  324.     return soundReg->control.Sound1_To_SO1;
  325.       case 11: /* Sound1_To_SO2 */
  326.     return soundReg->control.Sound1_To_SO2;
  327.       case 12: /* Sound1_On_Off */
  328.     return soundReg->control.Sound1_On_Off;
  329.       }
  330.   } else if(mode == 2) {
  331.     switch(line)
  332.       {
  333.       case 0: /* patternDuty */
  334.     return soundReg->mode2.patternDuty;
  335.       case 1: /* soundLength */
  336.     return soundReg->mode2.soundLength;
  337.       case 2: /* envInitialValue */
  338.     return soundReg->mode2.envInitialValue;
  339.       case 3: /* envMode */
  340.     return soundReg->mode2.envMode;
  341.       case 4: /* envNbStep */
  342.     return soundReg->mode2.envNbStep;
  343.       case 5: /* frequency */
  344.       case FREQUENCY:
  345.     return (soundReg->mode2.frequencyHigh << 8) + soundReg->mode2.frequencyLow;
  346.       case 6: /* counter_ConsSel */
  347.     return soundReg->mode2.counter_ConsSel;
  348.       case 7: /* Sound2_To_SO1 */
  349.     return soundReg->control.Sound2_To_SO1;
  350.       case 8: /* Sound2_To_SO2 */
  351.     return soundReg->control.Sound2_To_SO2;
  352.       case 9: /* Sound2_On_Off */
  353.     return soundReg->control.Sound2_On_Off;
  354.       }
  355.   } else if(mode == 3) {
  356.     switch(line)
  357.       {
  358.       case 0: /* on_Off */
  359.     return soundReg->mode3.on_Off;
  360.       case 1: /* soundLength */
  361.     return soundReg->mode3.soundLength;
  362.       case 2: /* selOutputLevel */
  363.     return soundReg->mode3.selOutputLevel;
  364.       case 3: /* frequency */
  365.       case FREQUENCY:
  366.     return (soundReg->mode3.frequencyHigh << 8) + soundReg->mode3.frequencyLow;
  367.       case 4: /* counter_ConsSel */
  368.     return soundReg->mode3.counter_ConsSel;
  369.       case 5: /* Sound3_To_SO1 */
  370.     return soundReg->control.Sound3_To_SO1;
  371.       case 6: /* Sound3_To_SO2 */
  372.     return soundReg->control.Sound3_To_SO2;
  373.       case 7: /* Sound3_On_Off */
  374.     return soundReg->control.Sound3_On_Off;
  375.       }
  376.   } else if(mode == 4) {
  377.     switch(line)
  378.       {
  379.       case 0: /* soundLength */
  380.     return soundReg->mode4.soundLength;
  381.       case 1: /* envInitialValue */
  382.     return soundReg->mode4.envInitialValue;
  383.       case 2: /* envMode */
  384.     return soundReg->mode4.envMode;
  385.       case 3: /* envNbStep */
  386.     return soundReg->mode4.envNbStep;
  387.       case 4: /* polyCounterFreq */
  388.     return soundReg->mode4.polyCounterFreq;
  389.       case 5: /* polyCounterStep */
  390.     return soundReg->mode4.polyCounterStep;
  391.       case 6: /* polyCounterDiv */
  392.     return soundReg->mode4.polyCounterDiv;
  393.       case 7: /* counter_ConsSel */
  394.     return soundReg->mode4.counter_ConsSel;
  395.       case 8: /* Sound4_To_SO1 */
  396.     return soundReg->control.Sound4_To_SO1;
  397.       case 9: /* Sound4_To_SO2 */
  398.     return soundReg->control.Sound4_To_SO2;
  399.       case 10: /* Sound4_On_Off */
  400.     return soundReg->control.Sound4_On_Off;
  401.       }
  402.   }
  403. }
  404.  
  405. void update_value(int mode, int line, int value)
  406. {
  407.   if(mode == 0) {
  408.     switch(line)
  409.       {
  410.       case 0: /* global_On_Off */
  411.     soundReg->control.global_On_Off = value;
  412.     _reg_0x26 = ((char *)soundReg)[0x16];
  413.     break;
  414.       case 1: /* Vin_SO1 */
  415.     soundReg->control.Vin_SO1 = value;
  416.     _reg_0x24 = ((char *)soundReg)[0x14];
  417.     break;
  418.       case 2: /* Vin_SO2 */
  419.     soundReg->control.Vin_SO2 = value;
  420.     _reg_0x24 = ((char *)soundReg)[0x14];
  421.     break;
  422.       case 3: /* SO1_OutputLevel */
  423.     soundReg->control.SO1_OutputLevel = value;
  424.     _reg_0x24 = ((char *)soundReg)[0x14];
  425.     break;
  426.       case 4: /* SO2_OutputLevel */
  427.     soundReg->control.SO2_OutputLevel = value;
  428.     _reg_0x24 = ((char *)soundReg)[0x14];
  429.     break;
  430.       case FREQUENCY:
  431.     update_value(1, FREQUENCY, value);
  432.     update_value(2, FREQUENCY, value);
  433.     update_value(3, FREQUENCY, value);
  434.     break;
  435.       case PLAY: /* restart */
  436.     update_value(1, FREQUENCY, current_value(1, FREQUENCY));
  437.     update_value(2, FREQUENCY, current_value(2, FREQUENCY));
  438.     update_value(3, FREQUENCY, current_value(3, FREQUENCY));
  439.     soundReg->mode1.restart = value;
  440.     soundReg->mode2.restart = value;
  441.     soundReg->mode3.restart = value;
  442.     soundReg->mode4.restart = value;
  443.     _reg_0x14 = ((char *)soundReg)[0x04];
  444.     _reg_0x19 = ((char *)soundReg)[0x09];
  445.     _reg_0x1E = ((char *)soundReg)[0x0E];
  446.     _reg_0x23 = ((char *)soundReg)[0x13];
  447.     soundReg->mode1.restart = 0;
  448.     soundReg->mode2.restart = 0;
  449.     soundReg->mode3.restart = 0;
  450.     soundReg->mode4.restart = 0;
  451.     break;
  452.       }
  453.   } else if(mode == 1) {
  454.     switch(line)
  455.       {
  456.       case 0: /* sweepTime */
  457.     soundReg->mode1.sweepTime = value;
  458.     _reg_0x10 = ((char *)soundReg)[0x00];
  459.     break;
  460.       case 1: /* sweepMode */
  461.     soundReg->mode1.sweepMode = value;
  462.     _reg_0x10 = ((char *)soundReg)[0x00];
  463.     break;
  464.       case 2: /* sweepShifts */
  465.     soundReg->mode1.sweepShifts = value;
  466.     _reg_0x10 = ((char *)soundReg)[0x00];
  467.     break;
  468.       case 3: /* patternDuty */
  469.     soundReg->mode1.patternDuty = value;
  470.     _reg_0x11 = ((char *)soundReg)[0x01];
  471.     break;
  472.       case 4: /* soundLength */
  473.     soundReg->mode1.soundLength = value;
  474.     _reg_0x11 = ((char *)soundReg)[0x01];
  475.     break;
  476.       case 5: /* envInitialValue */
  477.     soundReg->mode1.envInitialValue = value;
  478.     _reg_0x12 = ((char *)soundReg)[0x02];
  479.     break;
  480.       case 6: /* envMode */
  481.     soundReg->mode1.envMode = value;
  482.     _reg_0x12 = ((char *)soundReg)[0x02];
  483.     break;
  484.       case 7: /* envNbSweep */
  485.     soundReg->mode1.envNbSweep = value;
  486.     _reg_0x12 = ((char *)soundReg)[0x02];
  487.     break;
  488.       case 8: /* frequency */
  489.       case FREQUENCY:
  490.     soundReg->mode1.frequencyHigh = value >> 8;
  491.     soundReg->mode1.frequencyLow  = value;
  492.     _reg_0x13 = ((char *)soundReg)[0x03];
  493.     _reg_0x14 = ((char *)soundReg)[0x04];
  494.     break;
  495.       case 9: /* counter_ConsSel */
  496.     soundReg->mode1.counter_ConsSel = value;
  497.     _reg_0x14 = ((char *)soundReg)[0x04];
  498.     break;
  499.       case 10: /* Sound1_To_SO1 */
  500.     soundReg->control.Sound1_To_SO1 = value;
  501.     _reg_0x25 = ((char *)soundReg)[0x15];
  502.     break;
  503.       case 11: /* Sound1_To_SO2 */
  504.     soundReg->control.Sound1_To_SO2 = value;
  505.     _reg_0x25 = ((char *)soundReg)[0x15];
  506.     break;
  507.       case 12: /* Sound1_On_Off */
  508.     soundReg->control.Sound1_On_Off = value;
  509.     _reg_0x26 = ((char *)soundReg)[0x16];
  510.     break;
  511.       case PLAY: /* restart */
  512.     update_value(mode, FREQUENCY, current_value(mode, FREQUENCY));
  513.     soundReg->mode1.restart = value;
  514.     _reg_0x14 = ((char *)soundReg)[0x04];
  515.     soundReg->mode1.restart = 0;
  516.     break;
  517.       }
  518.   } else if(mode == 2) {
  519.     switch(line)
  520.       {
  521.       case 0: /* patternDuty */
  522.     soundReg->mode2.patternDuty = value;
  523.     _reg_0x16 = ((char *)soundReg)[0x06];
  524.     break;
  525.       case 1: /* soundLength */
  526.     soundReg->mode2.soundLength = value;
  527.     _reg_0x16 = ((char *)soundReg)[0x06];
  528.     break;
  529.       case 2: /* envInitialValue */
  530.     soundReg->mode2.envInitialValue = value;
  531.     _reg_0x17 = ((char *)soundReg)[0x07];
  532.     break;
  533.       case 3: /* envMode */
  534.     soundReg->mode2.envMode = value;
  535.     _reg_0x17 = ((char *)soundReg)[0x07];
  536.     break;
  537.       case 4: /* envNbStep */
  538.     soundReg->mode2.envNbStep = value;
  539.     _reg_0x17 = ((char *)soundReg)[0x07];
  540.     break;
  541.       case 5: /* frequency */
  542.       case FREQUENCY:
  543.     soundReg->mode2.frequencyHigh = value >> 8;
  544.     soundReg->mode2.frequencyLow  = value;
  545.     _reg_0x18 = ((char *)soundReg)[0x08];
  546.     _reg_0x19 = ((char *)soundReg)[0x09];
  547.     break;
  548.       case 6: /* counter_ConsSel */
  549.     soundReg->mode2.counter_ConsSel = value;
  550.     _reg_0x19 = ((char *)soundReg)[0x09];
  551.     break;
  552.       case 7: /* Sound2_To_SO1 */
  553.     soundReg->control.Sound2_To_SO1 = value;
  554.     _reg_0x25 = ((char *)soundReg)[0x15];
  555.     break;
  556.       case 8: /* Sound2_To_SO2 */
  557.     soundReg->control.Sound2_To_SO2 = value;
  558.     _reg_0x25 = ((char *)soundReg)[0x15];
  559.     break;
  560.       case 9: /* Sound2_On_Off */
  561.     soundReg->control.Sound2_On_Off = value;
  562.     _reg_0x26 = ((char *)soundReg)[0x16];
  563.     break;
  564.       case PLAY: /* restart */
  565.     update_value(mode, FREQUENCY, current_value(mode, FREQUENCY));
  566.     soundReg->mode2.restart = value;
  567.     _reg_0x19 = ((char *)soundReg)[0x09];
  568.     soundReg->mode2.restart = 0;
  569.     break;
  570.       }
  571.   } else if(mode == 3) {
  572.     switch(line)
  573.       {
  574.       case 0: /* on_Off */
  575.     soundReg->mode3.on_Off = value;
  576.     _reg_0x1A = ((char *)soundReg)[0x0A];
  577.     break;
  578.       case 1: /* soundLength */
  579.     soundReg->mode3.soundLength = value;
  580.     _reg_0x1B = ((char *)soundReg)[0x0B];
  581.     break;
  582.       case 2: /* selOutputLevel */
  583.     soundReg->mode3.selOutputLevel = value;
  584.     _reg_0x1C = ((char *)soundReg)[0x0C];
  585.     break;
  586.       case 3: /* frequency */
  587.       case FREQUENCY:
  588.     soundReg->mode3.frequencyHigh = value >> 8;
  589.     soundReg->mode3.frequencyLow  = value;
  590.     _reg_0x1D = ((char *)soundReg)[0x0D];
  591.     _reg_0x1E = ((char *)soundReg)[0x0E];
  592.     break;
  593.       case 4: /* counter_ConsSel */
  594.     soundReg->mode3.counter_ConsSel = value;
  595.     _reg_0x1E = ((char *)soundReg)[0x0E];
  596.     break;
  597.       case 5: /* Sound3_To_SO1 */
  598.     soundReg->control.Sound3_To_SO1 = value;
  599.     _reg_0x25 = ((char *)soundReg)[0x15];
  600.     break;
  601.       case 6: /* Sound3_To_SO2 */
  602.     soundReg->control.Sound3_To_SO2 = value;
  603.     _reg_0x25 = ((char *)soundReg)[0x15];
  604.     break;
  605.       case 7: /* Sound3_On_Off */
  606.     soundReg->control.Sound3_On_Off = value;
  607.     _reg_0x26 = ((char *)soundReg)[0x16];
  608.     break;
  609.       case PLAY: /* restart */
  610.     update_value(mode, FREQUENCY, current_value(mode, FREQUENCY));
  611.     soundReg->mode3.restart = value;
  612.     _reg_0x1E = ((char *)soundReg)[0x0E];
  613.     soundReg->mode3.restart = 0;
  614.     break;
  615.       }
  616.   } else if(mode == 4) {
  617.     switch(line)
  618.       {
  619.       case 0: /* soundLength */
  620.     soundReg->mode4.soundLength = value;
  621.     _reg_0x20 = ((char *)soundReg)[0x10];
  622.     break;
  623.       case 1: /* envInitialValue */
  624.     soundReg->mode4.envInitialValue = value;
  625.     _reg_0x21 = ((char *)soundReg)[0x11];
  626.     break;
  627.       case 2: /* envMode */
  628.     soundReg->mode4.envMode = value;
  629.     _reg_0x21 = ((char *)soundReg)[0x11];
  630.     break;
  631.       case 3: /* envNbStep */
  632.     soundReg->mode4.envNbStep = value;
  633.     _reg_0x21 = ((char *)soundReg)[0x11];
  634.     break;
  635.       case 4: /* polyCounterFreq */
  636.     soundReg->mode4.polyCounterFreq = value;
  637.     _reg_0x22 = ((char *)soundReg)[0x12];
  638.     break;
  639.       case 5: /* polyCounterStep */
  640.     soundReg->mode4.polyCounterStep = value;
  641.     _reg_0x22 = ((char *)soundReg)[0x12];
  642.     break;
  643.       case 6: /* polyCounterDiv */
  644.     soundReg->mode4.polyCounterDiv = value;
  645.     _reg_0x22 = ((char *)soundReg)[0x12];
  646.     break;
  647.       case 7: /* counter_ConsSel */
  648.     soundReg->mode4.counter_ConsSel = value;
  649.     _reg_0x23 = ((char *)soundReg)[0x13];
  650.     break;
  651.       case 8: /* Sound4_To_SO1 */
  652.     soundReg->control.Sound4_To_SO1 = value;
  653.     _reg_0x25 = ((char *)soundReg)[0x15];
  654.     break;
  655.       case 9: /* Sound4_To_SO2 */
  656.     soundReg->control.Sound4_To_SO2 = value;
  657.     _reg_0x25 = ((char *)soundReg)[0x15];
  658.     break;
  659.       case 10: /* Sound4_On_Off */
  660.     soundReg->control.Sound4_On_Off = value;
  661.     _reg_0x26 = ((char *)soundReg)[0x16];
  662.     break;
  663.       case PLAY: /* restart */
  664.     soundReg->mode4.restart = value;
  665.     _reg_0x23 = ((char *)soundReg)[0x13];
  666.     soundReg->mode4.restart = 0;
  667.     break;
  668.       }
  669.   }
  670. }
  671.  
  672. void cls()
  673. {
  674.   int x, y;
  675.  
  676.   for(y = 0; y < 18; y++)
  677.     for(x = 0; x < 20; x++) {
  678.       gotoxy(x, y);
  679.       setchar(' ');
  680.     }
  681. }
  682.  
  683. int draw_screen(int mode)
  684. {
  685.   int i;
  686.  
  687.   cls();
  688.   gotoxy(FIRST_X, TITLE_Y);
  689.   print(params[0].name);
  690.  
  691.   for(i = 0; params[i+1].name; i++) {
  692.     gotoxy(FIRST_X, FIRST_Y+i);
  693.     print(params[i+1].name);
  694.     gotoxy(VAL_X, FIRST_Y+i);
  695.     printn(current_value(mode, i), 10);
  696.   }
  697.   return i-1;
  698. }
  699.  
  700.  
  701. void play_music(int mode)
  702. {
  703.   int i = 0;
  704.  
  705.   while(music[i] != END) {
  706.     if(music[i] != SILENCE) {
  707.       update_value(mode, FREQUENCY, frequencies[music[i]]);
  708.       update_value(mode, PLAY, 1);
  709.     }
  710.     delay(20000);
  711.     i++;
  712.   }
  713. }
  714.  
  715. void dump_registers()
  716. {
  717.   unsigned char reg;
  718.   int i, j;
  719.  
  720.   cls();
  721.   gotoxy(FIRST_X, TITLE_Y);
  722.   print("Register Dump");
  723.  
  724.   for(i = 0, j = 0; i <= 0x16; i++, j++) {
  725.     if(i == 0x05 || i == 0x0F)
  726.       i++;
  727.     if(j%2 == 0) {
  728.       gotoxy(FIRST_X, FIRST_Y+j/2);
  729.       print("0xFF");
  730.     } else {
  731.       gotoxy(FIRST_X+6, FIRST_Y+j/2);
  732.       putchar('-');
  733.     }
  734.     printn(i+0x10, 16);
  735.     if(j%2 == 0) {
  736.       gotoxy(VAL_X, FIRST_Y+j/2);
  737.     } else {
  738.       gotoxy(VAL_X+2, FIRST_Y+j/2);
  739.       putchar('-');
  740.     }
  741.     reg = ((char *)soundReg)[i];
  742.     if(reg < 0x10) putchar('0');
  743.     printn(reg, 16);
  744.   }
  745. }
  746.  
  747. void wait_event(int mode)
  748. {
  749.   int input, i, y, last_y;
  750.  
  751.   while(1) {
  752.     params = params_array[mode];
  753.     last_y = draw_screen(mode) + FIRST_Y;
  754.     y = FIRST_Y;
  755.     gotoxy(ARROW_X, y);
  756.     setchar(ARROW_CHAR);
  757.  
  758.     while(1) {
  759.       input = joypad();
  760.       if(input & J_UP) {
  761.     gotoxy(ARROW_X, y); setchar(SPACE_CHAR);
  762.     if(--y < FIRST_Y)
  763.       y = last_y;
  764.     gotoxy(ARROW_X, y); setchar(ARROW_CHAR);
  765.       } else if (input & J_DOWN) {
  766.     gotoxy(ARROW_X, y); setchar(SPACE_CHAR);
  767.     if(++y > last_y)
  768.       y = FIRST_Y;
  769.     gotoxy(ARROW_X, y); setchar(ARROW_CHAR);
  770.       } else if (input & J_LEFT) {
  771.     i = current_value(mode, y-FIRST_Y);
  772.     if(i > 0) {
  773.       if(input & J_A)
  774.         i = MAX(i-10, 0);
  775.       else if(input & J_B)
  776.         i = 0;
  777.       else
  778.         i--;
  779.       update_value(mode, y-FIRST_Y, i);
  780.       gotoxy(VAL_X, y); print("    ");
  781.       gotoxy(VAL_X, y); printn(i, 10);
  782.     }
  783.       } else if (input & J_RIGHT) {
  784.     i = current_value(mode, y-FIRST_Y);
  785.     if(i < params[y-FIRST_Y+1].max) {
  786.       if(input & J_A)
  787.         i = MIN(i+10, params[y-FIRST_Y+1].max);
  788.       else if(input & J_B)
  789.         i = params[y-FIRST_Y+1].max;
  790.       else
  791.         i++;
  792.       update_value(mode, y-FIRST_Y, i);
  793.       gotoxy(VAL_X, y); print("    ");
  794.       gotoxy(VAL_X, y); printn(i, 10);
  795.     }
  796.       } else if (input & J_START) {
  797.     if(input & J_A)
  798.       play_music(mode);
  799.     else
  800.       update_value(mode, PLAY, 1);
  801.     waitpadup();
  802.       } else if (input & J_SELECT) {
  803.     if(input & J_A)
  804.       dump_registers();
  805.     else
  806.       mode = (mode+1) % NB_MODES;
  807.     waitpadup();
  808.     break;
  809.       }
  810.       for(i = 0; i < 200 && input == joypad(); i++)
  811.     delay(50);
  812.     }
  813.   }
  814. }
  815.  
  816. void main()
  817. {
  818.   struct SoundReg s = {
  819.     { 0, 0, 0, 0,
  820.       1, 2,
  821.       3, 0, 4,
  822.       0x73,
  823.       6, 0, 0, 0 },
  824.     { 0,
  825.       1, 2,
  826.       4, 0, 8,
  827.       0xD7,
  828.       6, 0, 0, 0 },
  829.     { 0, 1,
  830.       0,
  831.       0, 1, 0,
  832.       0xD6,
  833.       6, 0, 0, 0 },
  834.     { 0,
  835.       58, 0,
  836.       1, 0, 10,
  837.       0, 0, 0,
  838.       0, 1, 0 },
  839.     { 7, 0, 7, 0,
  840.       1, 1, 1, 1, 1, 1, 1, 1,
  841.       0, 0, 0, 0, 0, 1 }
  842.   };
  843.  
  844.   soundReg = &s;
  845.   _reg_0x10 = ((char *)soundReg)[0x00];
  846.   _reg_0x11 = ((char *)soundReg)[0x01];
  847.   _reg_0x12 = ((char *)soundReg)[0x02];
  848.   _reg_0x13 = ((char *)soundReg)[0x03];
  849.   _reg_0x14 = ((char *)soundReg)[0x04];
  850.  
  851.   _reg_0x16 = ((char *)soundReg)[0x06];
  852.   _reg_0x17 = ((char *)soundReg)[0x07];
  853.   _reg_0x18 = ((char *)soundReg)[0x08];
  854.   _reg_0x19 = ((char *)soundReg)[0x09];
  855.   _reg_0x1A = ((char *)soundReg)[0x0A];
  856.   _reg_0x1B = ((char *)soundReg)[0x0B];
  857.   _reg_0x1C = ((char *)soundReg)[0x0C];
  858.   _reg_0x1D = ((char *)soundReg)[0x0D];
  859.   _reg_0x1E = ((char *)soundReg)[0x0E];
  860.  
  861.   _reg_0x20 = ((char *)soundReg)[0x10];
  862.   _reg_0x21 = ((char *)soundReg)[0x11];
  863.   _reg_0x22 = ((char *)soundReg)[0x12];
  864.   _reg_0x23 = ((char *)soundReg)[0x13];
  865.   _reg_0x24 = ((char *)soundReg)[0x14];
  866.   _reg_0x25 = ((char *)soundReg)[0x15];
  867.   _reg_0x26 = ((char *)soundReg)[0x16];
  868.  
  869.   cls();
  870.  
  871.   wait_event(1);
  872. }
  873.